CIEC - Gacetas Oficiales

<%@ Language=VBScript %> <% Option Explicit dim conexion,registros,sql,id_var,texto2_var,i,largo,palabra,caracter set conexion= Server.CreateObject ("ADODB.connection") %><% conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") %> CIEC - Gacetas Oficiales - Extranet

Gacetas oficiales por área

Ambiente

Comercio Exterior

Energía

Fiscal

Régimen Cambiario

Laboral

Otras áreas

<%=request("area")%>

<%Dim mostrar, cant_paginas, pagina_actual, registro_mostrado mostrar = 10 If Request.QueryString("page") = "" Then pagina_actual = 1 Else pagina_actual = CInt(Request.QueryString("page")) End If registros.PageSize = mostrar registros.CacheSize = mostrar sql = "select id,contenido,numero from ciec_gaceta where grupo='"&request("area")&"' and activo=1 order by numero desc" registros.open sql,conexion,1 cant_paginas = registros.PageCount If pagina_actual > cant_paginas Then pagina_actual = cant_paginas If pagina_actual < 1 Then pagina_actual = 1 If cant_paginas = 0 Then Response.Write "No hay registros..." Else registros.AbsolutePage = pagina_actual %>

" style="text-decoration: none">Gaceta Oficial Nº <%=registros("numero")%>
<%palabra=0 texto2_var=registros("contenido") largo=len(texto2_var) for i=1 to largo caracter=mid(texto2_var,i,1) Response.Write(caracter) if asc(caracter)=13 then Response.Write("
") end if if asc(caracter)=32 then palabra=palabra+1 end if if palabra=30 then Response.Write("...") exit for end if next%>

<%If pagina_actual > 1 Then%> &page=<%= pagina_actual - 1 %>"> [<< Anterior] <%End If For I = 1 To cant_paginas If I = pagina_actual Then%> <%= I %> <%Else%> &page=<%= I %>"><%= I %> <%End If Next 'I If pagina_actual < cant_paginas Then%> &page=<%= pagina_actual + 1 %>"> [Próximo >>] <%End If%>

Envíenos sugerencias y comentarios acerca de esta página

Diseño y desarrollo: Ingeniería Web - IW

Capítulos | Comisiones | Directorio | Contáctenos | Principal